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INTEGER FUNCTIOlff SUM_SAMPL,3 (X) 
INTEGER X (5 1:200) 
SUM.SAMPL_3 * 0 
DO 999 II = SI, 200 
SUM_SAI!PL_3 = SUM_SAMPL_3+X(I1) 
999 COHTXHUE . 
RETURN 
END 
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arg-type XC:,---, :) 

^""i^ ^ ABSTRACTION 

SUM = 0 

DQ 999 Im = LBOUWDCX,m), UBOU]SrD(X,ni) 

DO 999 II - LBOUWDCX,!), UB0U1JD(X,1) 
SUM = SUM+X(Il,---,Im) 
999 CONTINUE 
RETURN 
END 
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REAL A(10,20,30),A2C10,20,30),B 



B = SUM_SAMPL.l(A)+SUM.SAMPL.i(A2) 
WRITEC*,*) SUM_SAMPL_2(]JC51:100)) 
WRITEC*.*) SDH_SAMPL_2(MC51:200)) 
END 
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DO 999 12 = LB0UNDa,2),UB0UNDa,2) 
DO 999 II = LBQUNDCX,1),UB0UMD(X,1) 
SUM_SAMPL_1 = SUM_SAMPL_1+X<I1.I2,I3) 
999 CONTINUE 
RETURN 
END 



INTEGER FUNCTION SUM_SAMPL_2CX) 
INTEGER X(0 
SUM_SAMPL_2 = 0 

DO 999 II = LBOUND(X,1),UBOUND(X,1) 
SUM.SAMPL_2 = SUM_SAMPL«2+X(I1) 
• CONTINUE 
RETURN 
END 
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' main program 

PROGRAM SAMFL 
HITEGER NClOO) 

HEAL A(10,20.30),A2C10,20,30).B 

B = SUM_TINY,lCA) 

B » SUM_AND.ADD<A,B) 

WRITE C*,*) SUM,TIKY.2CN(51:100)) 

END 

aubprogxam 

BEAL FUIICTIOir SUM.ABD.ADDCQ.S) 
HEAL QClO, 20,30), S 
• SaM_AND_ADD = SU1!_TINY_1(Q)+S 
RETURN 



I — end ojf usar programs 

REAL FUNCTION SUM.TI1IY_1(X) 
REAL X(l:10.1;20,l:30) 
SUM_TI1IY^1 3 0 
DO 999 13 = 1, 30 
DO 999 12 = 1, 20 
DO 999 II = 1. 10 
SUM_TIMY_1 = SUM_TINY_1+XCI1,I2,I3) 
999 CONTINUE 
. RETURN 
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INTEGER FUHCTIQM SUM_TINY_2(X) 
INTEGER X(51:100) 
SUM_TINY_2 = 0 
DO 999 II = 51, 100 
SUM_TINy_2 » SDM_TINY_2+XCI1) 
• CONTINXIE 
RETURN 
END 
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FILE tinyi.f: 



C — main program 

PROGRAM SIMPL 
INTEGER NClOO) 

REAL AClO, 20,30) , A2(10,20. 30) ,B 
B.=» SUHCA) 

B = SUM_A»D_ADD(A,B) 
WRITEC*,*) SUMCN(S1:100)) 
END 

C — end of main program 



FILE i:iny2.f: 



C — subprogram 

REAL FUNGTIQM SUM_AND«ADD(q ,S) 
REAL QC10,20,30),S 
SUM_AND_ADD = SUMCQ)+S 
RETURN 
END 

C — end of subprogram 



FIG. 24 



FILE tinyl.o: 



C — main program 

PROGRAM SAMPL 
INTEGER NClOO) 
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WRITEC*,*) SUM_2CII(S1:100)) 
ESD 
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END 
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END 
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END 
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FUNCTION nam«CA,N} RESULT (R) 
arg-iype A,R 
INTEGER N 

SELECT CASE CN) 
CASE (0) 
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